home *** CD-ROM | disk | FTP | other *** search
/ PC-Blue - MS DOS Public Domain Library / PC-Blue MS-DOS Public Domain Library - NYACC.iso / vol218 / appendix.bas (.txt) < prev    next >
Encoding:
GW-BASIC  |  1986-11-30  |  23.4 KB  |  690 lines
  1. 100  REM Documentation for the Genealogy ON DISPLAY Programs
  2. 110  REM All data is in the form of DATA statements.
  3. 120  REM By:  Melvin O. Duke.  Updated February 1986.
  4. 130  DATA Genealogy
  5. 140  DATA User's Manual
  6. 150  DATA -5
  7. 160  DATA 1
  8. 170  INDENT = 0
  9. 180  REM Printer Definitions
  10. 190  FORM.FEED$  = CHR$(12)
  11. 200  COMPR.OFF$  = CHR$(18)     : COMPR.ON$ = CHR$(15)
  12. 210  BOLD.OFF$   = CHR$(27)+"F" : BOLD.ON$ = CHR$(27)+"E"
  13. 220  EXPAND.OFF$ = CHR$(18)     : EXPAND.ON$ = CHR$(14)
  14. 230  DASHES$ = "+"+STRING$(54,45)+"+"
  15. 240  TRIM.LINE$ = "(Trim-line)"
  16. 300  REM Program begins here
  17. 310  READ TITLE$, DOC.NAME$, PAGE.NO, LINE.NO
  18. 320  IF PAGE.NO MOD 2 = 0 THEN TAB.POS = 8 ELSE TAB.POS = 13
  19. 330  GOSUB 920  'For trim line and heading space
  20. 340  FOR I = 1 TO 6 : LPRINT : NEXT I
  21. 350  LPRINT BOLD.ON$;     'Set Emphasized mode
  22. 360  LPRINT EXPAND.ON$;   'Set Expanded Print
  23. 370  LPRINT TAB(TAB.POS-1);TITLE$
  24. 380  LPRINT EXPAND.OFF$;  'Return to normal
  25. 390  LPRINT BOLD.OFF$;    'Return to normal
  26. 400  FOR I = 1 TO 3 : LPRINT : NEXT I
  27. 410  LPRINT BOLD.ON$;     'Set Emphasized mode
  28. 420  LPRINT TAB(TAB.POS+12);"ON DISPLAY"
  29. 430  LPRINT BOLD.OFF$;    'Return to normal
  30. 440  LPRINT : LPRINT : LPRINT
  31. 450  LPRINT TAB(TAB.POS+11);"Version 4.0"
  32. 460  FOR I = 1 TO 11 : LPRINT : NEXT I
  33. 470  LPRINT TAB(TAB.POS+10); DOC.NAME$
  34. 480  LINE.NO = LINE.NO + 27
  35. 490  '
  36. 500  READ REPLY$
  37. 510  REM First, change tildes to quotes
  38. 520  FOR Q = 1 TO LEN(REPLY$)
  39. 530   IF MID$(REPLY$,Q,1)="~"THEN MID$(REPLY$,Q,1)=CHR$(34)
  40. 540  NEXT Q
  41. 550  IF LEFT$(REPLY$,1) = "." THEN GOSUB 1270: GOTO 500
  42. 560  IF LINE.NO > 44 THEN GOSUB 1030
  43. 570  REM Print the line if not a command
  44. 580  LPRINT TAB(TAB.POS);REPLY$
  45. 590  LINE.NO = LINE.NO + 1
  46. 600  IF PAGE.NO MOD 2 = 0 THEN TAB.POS = 8 ELSE TAB.POS = 13
  47. 610  GOTO 500
  48. 620  REM Data for the Copyright Page
  49. 630  DATA ".pa"
  50. 640  DATA "Anyone may request a copy of these pro-"
  51. 650  DATA "grams, for trial, by sending a blank,"
  52. 660  DATA "double-sided, double-density, 5-1/4 in."
  53. 670  DATA "diskette to the author of the programs."
  54. 680  DATA ".sp"
  55. 690  DATA "An addressed, postage-paid return"
  56. 700  DATA "mailer must accompany the diskette (no"
  57. 710  DATA "exceptions, please).
  58. 720  DATA ".sp"
  59. 730  DATA "A copy of the programs with documenta-"
  60. 740  DATA "tion will be sent by return mail."
  61. 750  DATA ".vt 2"
  62. 760  DATA "Users are encouraged to copy and share"
  63. 770  DATA "the programs with others."
  64. 780  DATA ".vt 5"
  65. 790  DATA "If you are using these programs, you are"
  66. 800  DATA "expected to become a Registered User,"
  67. 810  DATA "by making a contribution to the author"
  68. 815  DATA "of the programs ($45.00 suggested)."
  69. 820  DATA ".sp"
  70. 830  DATA "Melvin O. Duke"
  71. 840  DATA "P. O. Box 20836"
  72. 850  DATA "San Jose, CA  95160"
  73. 860  DATA ".vt 4"
  74. 870  DATA "Copyright (c) 1983 through 1986, by:"
  75. 880  DATA "Melvin O. Duke."
  76. 890  DATA ".sp"
  77. 900  DATA "All rights reserved."
  78. 910  '
  79. 920  REM Top of each page routine
  80. 930  IF PAGE.NO MOD 2 = 0 THEN TAB.POS = 8 ELSE TAB.POS = 13
  81. 940  LPRINT
  82. 950  LPRINT TAB(30); TRIM.LINE$
  83. 960  LPRINT DASHES$ 'Dashes
  84. 970  FOR I = 1 TO 6
  85. 980   LPRINT
  86. 990  NEXT I
  87. 1000  LINE.NO = LINE.NO + 6
  88. 1010  RETURN
  89. 1020  '
  90. 1030  REM Bottom of each page Routine
  91. 1040  IF PAGE.NO < 1 THEN LPRINT : LPRINT : LPRINT : GOTO 1160
  92. 1050  LPRINT TAB(TAB.POS); STRING$(40,45)  'on line 46
  93. 1060  LPRINT TAB(TAB.POS+3); TITLE$+" ON DISPLAY.  Version 4.0" 'on line 47
  94. 1070  IF PAGE.NO MOD 2 = 1 THEN 1110
  95. 1080  LPRINT TAB(TAB.POS);"Page";PAGE.NO;
  96. 1090  LPRINT TAB(TAB.POS+27);"User's Manual"
  97. 1100  GOTO 1160
  98. 1110  LPRINT TAB(TAB.POS); "User's Manual";
  99. 1120  IF PAGE.NO < 10 THEN DELTA = 34
  100. 1130  IF PAGE.NO >  9 THEN DELTA = 33
  101. 1140  IF PAGE.NO > 99 THEN DELTA = 32
  102. 1150  LPRINT TAB(TAB.POS+DELTA); "Page"; PAGE.NO  'on line 48
  103. 1160  LPRINT : LPRINT : LPRINT
  104. 1170  LPRINT DASHES$ 'dashes after 51
  105. 1180  LPRINT TAB(30); TRIM.LINE$
  106. 1190  LPRINT FORM.FEED$;
  107. 1200  PAGE.NO = PAGE.NO + 1
  108. 1210  LINE.NO = 1
  109. 1220  IF REPLY$ = ".eof" THEN 1240  'Bypass after last page
  110. 1230  GOSUB 920  'For top of next page
  111. 1240  IF PAGE.NO MOD 2 = 0 THEN TAB.POS = 8 ELSE TAB.POS = 13
  112. 1250  RETURN
  113. 1260  '
  114. 1270  REM Command Processor
  115. 1280  IF LEFT$(REPLY$,3) = ".h1" THEN 1390
  116. 1290  IF LEFT$(REPLY$,3) = ".h2" THEN 1550
  117. 1300  IF LEFT$(REPLY$,3) = ".h3" THEN 1660
  118. 1310  IF LEFT$(REPLY$,3) = ".sp" THEN 1770
  119. 1320  IF LEFT$(REPLY$,4) = ".eof" THEN 1820
  120. 1330  IF LEFT$(REPLY$,3) = ".pa" THEN 1860
  121. 1340  IF LEFT$(REPLY$,3) = ".pn" THEN PAGE.NO = VAL(RIGHT$(REPLY$,LEN(REPLY$)-3)) : RETURN
  122. 1350  IF LEFT$(REPLY$,3) = ".vt" THEN 1930
  123. 1360  IF LEFT$(REPLY$,3) = ".pk" THEN 2040
  124. 1370  IF LEFT$(REPLY$,3) = ".in" THEN 2170
  125. 1380  STOP
  126. 1390  REM Head 1 Processor
  127. 1400  FOR I = LINE.NO TO 44
  128. 1410   LPRINT
  129. 1420  NEXT I
  130. 1430  GOSUB 1030  'Bottom of page Routine
  131. 1440  IF PAGE.NO MOD 2 = 0 THEN GOSUB 1860  'For h1 on Odd pages
  132. 1450  LPRINT BOLD.ON$;     'Set emphasized print
  133. 1460  LPRINT EXPAND.ON$;   'Set expanded print
  134. 1470  IF PAGE.NO MOD 2 = 0 THEN ADJUST = -2 ELSE ADJUST = -5
  135. 1480  LPRINT TAB(TAB.POS+ADJUST); RIGHT$(REPLY$,LEN(REPLY$)-4)
  136. 1490  LPRINT EXPAND.OFF$;  'Return to normal
  137. 1500  LPRINT BOLD.OFF$;    'Return to non-bold
  138. 1510  LINE.NO = LINE.NO+1
  139. 1520  IF PAGE.NO MOD 2 = 0 THEN TAB.POS = 8 ELSE TAB.POS = 13
  140. 1530  RETURN
  141. 1540  '
  142. 1550  REM Head 2 Processor
  143. 1560  IF LINE.NO = 7 THEN 1580 'skip spacing if at top of page
  144. 1570  IF LINE.NO > 43 THEN GOSUB 1860 ELSE LPRINT:LPRINT:LINE.NO = LINE.NO+2
  145. 1580  LPRINT BOLD.ON$;  'Set emphasized print
  146. 1590  LPRINT TAB(TAB.POS+1); RIGHT$(REPLY$,LEN(REPLY$)-4)
  147. 1600  LPRINT BOLD.OFF$; 'Return to normal
  148. 1610  LPRINT
  149. 1620  LINE.NO = LINE.NO + 2
  150. 1630  IF PAGE.NO MOD 2 = 0 THEN TAB.POS = 8 ELSE TAB.POS = 13
  151. 1640  RETURN
  152. 1650  '
  153. 1660  REM Head 3 Processor
  154. 1670  IF LINE.NO = 7 THEN 1690 'skip spacing if at top of page
  155. 1680  IF LINE.NO > 43 THEN GOSUB 1860 ELSE LPRINT:LPRINT:LINE.NO = LINE.NO+2
  156. 1690  LPRINT BOLD.ON$;  'Set emphasized print
  157. 1700  LPRINT TAB(TAB.POS+1); RIGHT$(REPLY$,LEN(REPLY$)-4)
  158. 1710  LPRINT BOLD.OFF$; 'Return to normal
  159. 1720  LPRINT
  160. 1730  LINE.NO = LINE.NO + 2
  161. 1740  IF PAGE.NO MOD 2 = 0 THEN TAB.POS = 8 ELSE TAB.POS = 13
  162. 1750  RETURN
  163. 1760  '
  164. 1770  REM Single Space Processor
  165. 1780  IF LINE.NO = 7 THEN 1800
  166. 1790  IF LINE.NO > 44 THEN GOSUB 1860 ELSE LPRINT : LINE.NO = LINE.NO + 1
  167. 1800  IF PAGE.NO MOD 2 = 0 THEN TAB.POS = 8 ELSE TAB.POS = 13
  168. 1810  RETURN
  169. 1820  REM End of File Processor
  170. 1830  GOSUB 1860 'Bottom of Page
  171. 1850  GOTO 7830
  172. 1860  REM Page Eject Processor
  173. 1870  FOR I = LINE.NO TO 44
  174. 1880   LPRINT
  175. 1890   LINE.NO = LINE.NO + 1
  176. 1900  NEXT I
  177. 1910  GOSUB 1030  'Bottom of Page Processing
  178. 1920  RETURN
  179. 1930  REM Vertical Tab Processor
  180. 1940  IF LINE.NO = 7 THEN 2030
  181. 1950  IF LINE.NO > 44 THEN GOSUB 1030  'End of page
  182. 1960  QTY = VAL(RIGHT$(REPLY$,LEN(REPLY$)-3))
  183. 1970  FOR I = 1 TO QTY
  184. 1980   LPRINT
  185. 1990   LINE.NO = LINE.NO + 1
  186. 2000   IF LINE.NO > 44 THEN I = QTY
  187. 2010  NEXT I
  188. 2020  IF PAGE.NO MOD 2 = 0 THEN TAB.POS = 8 ELSE TAB.POS = 13
  189. 2030  RETURN
  190. 2040  REM Pack Processor
  191. 2050  IF LINE.NO > 44 THEN GOSUB 1030
  192. 2060  IF TAB.POS = 8 THEN ADJUST = 4
  193. 2070  IF TAB.POS = 13 THEN ADJUST = 7
  194. 2080  TAB.POS = TAB.POS + ADJUST + INDENT
  195. 2090  WIDTH "lpt1:", 132 'set condensed width
  196. 2100  LPRINT COMPR.ON$;  'Packed printing
  197. 2110  LPRINT TAB(TAB.POS); RIGHT$(REPLY$,LEN(REPLY$)-3)
  198. 2120  LPRINT COMPR.OFF$; 'Return to normal
  199. 2130  WIDTH "lpt1:", 80  'return to normal
  200. 2140  LINE.NO = LINE.NO + 1
  201. 2150  IF PAGE.NO MOD 2 = 0 THEN TAB.POS = 8 ELSE TAB.POS = 13
  202. 2160  RETURN
  203. 2170  REM Indent Processor
  204. 2180  INDENT = VAL(RIGHT$(REPLY$,LEN(REPLY$)-3))
  205. 2190  RETURN
  206. 3000  DATA ".h1 A.  MESSAGES"
  207. 3010  DATA ".pn 59"
  208. 3020  DATA ".h2 START-UP MESSAGES"
  209. 3030  DATA "The initial System Message, when the"
  210. 3040  DATA "system is turned on, is:"
  211. 3050  DATA ".sp"
  212. 3060  DATA ".pk Current date is Tue 1-01-1980"
  213. 3070  DATA ".pk Enter new date:"
  214. 3080  DATA ".sp"
  215. 3090  DATA "The user is expected to respond with an"
  216. 3100  DATA "appropriate date."
  217. 3110  DATA ".sp"
  218. 3120  DATA "The next system message is:"
  219. 3130  DATA ".sp"
  220. 3140  DATA ".pk Current time is 0:00:52.17"
  221. 3150  DATA ".pk Enter new time:"
  222. 3160  DATA ".sp"
  223. 3170  DATA "The user is expected to respond with a"
  224. 3180  DATA "correct time."
  225. 3190  DATA ".sp"
  226. 3200  DATA "The System then responds:"
  227. 3210  DATA ".sp"
  228. 3220  DATA ".pk The IBM Personal Computer DOS"
  229. 3230  DATA ".pk Version 2.10 (C) Copyright IBM Corp 1981, 1982, 1983"
  230. 3240  DATA ".sp"
  231. 3250  DATA "When Starting BASIC, the message"
  232. 3260  DATA "in response to"
  233. 3270  DATA ".sp"
  234. 3280  DATA ".pk basic/s:256"
  235. 3290  DATA ".sp"
  236. 3300  DATA "is similar to:"
  237. 3310  DATA ".sp"
  238. 3320  DATA ".pk IBM Personal Computer Basic"
  239. 3330  DATA ".pk Version D2.00 Copyright IBM Corp. 1981, 1982, 1983"
  240. 3340  DATA ".pk 61118 Bytes Free"
  241. 3350  DATA ".pa"
  242. 3360  DATA ".h2 Error Messages"
  243. 3370  DATA ".pk Redo from Start"
  244. 3380  DATA ".sp"
  245. 3390  DATA "The user has entered a reply which"
  246. 3400  DATA "contains a comma.  He should re-enter"
  247. 3410  DATA "the data without the comma, or he"
  248. 3420  DATA "should enclose the reply in quotes."
  249. 3430  DATA ".sp"
  250. 3440  DATA "After re-entering the reply, he should"
  251. 3450  DATA "'save' the current information, and"
  252. 3460  DATA "call it out again to refresh the screen."
  253. 3470  DATA ".h1 B.  Summary"
  254. 3480  DATA ".h2 General Programs"
  255. 3490  DATA ".pk Function Performed                     Filename"
  256. 3500  DATA ".pk -----------------------------------    --------"
  257. 3510  DATA ".pk Initial File Formatting"
  258. 3520  DATA ".pk   Persons File                         creatper"
  259. 3530  DATA ".pk   Marriages File                       creatmar"
  260. 3540  DATA ".pk   Ordinances File                      creatord"
  261. 3550  DATA ".sp"
  262. 3560  DATA ".pk Entry of Data"
  263. 3570  DATA ".pk   Persons File                         updatper"
  264. 3580  DATA ".pk   Marriages File                       updatmar"
  265. 3590  DATA ".pk   Ordinances File                      updatord"
  266. 3600  DATA ".sp"
  267. 3610  DATA ".pk Print Detailed Information"
  268. 3620  DATA ".pk   Detailed Personal Information        printper"
  269. 3630  DATA ".pk   Detailed Marriage Information        printmar"
  270. 3640  DATA ".sp"
  271. 3650  DATA ".pk List the Records in the Files"
  272. 3660  DATA ".pk   Persons File                         listper"
  273. 3670  DATA ".pk   Marriages File                       listmar"
  274. 3680  DATA ".sp"
  275. 3690  DATA ".pk List the File Index"
  276. 3700  DATA ".pk   Parent/Child Index                   listpci"
  277. 3710  DATA ".sp"
  278. 3720  DATA ".pk Print Alphabetic Lists"
  279. 3730  DATA ".pk   List of Persons                      alphaper"
  280. 3740  DATA ".pk   Persons in Marriages                 alphamar"
  281. 3750  DATA ".sp"
  282. 3760  DATA ".pk Prepare an Index"
  283. 3770  DATA ".pk   Parent/Child Index                   indexpc"
  284. 3780  DATA ".pk   Marriages Index                      indexmar"
  285. 3790  DATA ".pa"
  286. 3800  DATA ".h2 General Programs, Cont."
  287. 3810  DATA ".pk Function Performed                     Filename"
  288. 3820  DATA ".pk -----------------------------------    --------"
  289. 3830  DATA ".pk Display the Information                display"
  290. 3840  DATA ".pk   Personal Information"
  291. 3850  DATA ".pk   Pedigree Information"
  292. 3860  DATA ".pk   Family Group Information"
  293. 3870  DATA ".pk   Ordinances Information"
  294. 3880  DATA ".sp"
  295. 3890  DATA ".pk Print the Genealogical Forms"
  296. 3900  DATA ".pk   Print Pedigree Charts                pedigree"
  297. 3910  DATA ".pk   Print Family Group Sheets            family"
  298. 3920  DATA ".sp"
  299. 3930  DATA ".pk Produce Descendents Charts             descend"
  300. 3940  DATA ".pk   Display on the Screen"
  301. 3950  DATA ".pk   Print the Charts"
  302. 3960  DATA ".sp"
  303. 3970  DATA ".pk Display a Menu"
  304. 3980  DATA ".pk   Displays Available Programs          menu"
  305. 3990  DATA ".h2 Data Files"
  306. 4000  DATA ".pk File Usage                             Filename"
  307. 4010  DATA ".pk ------------------------------------   --------"
  308. 4020  DATA ".pk Personal Vital Statistics              persfile"
  309. 4030  DATA ".pk Marriage Vital Statistics              marrfile"
  310. 4040  DATA ".pk Life Events (LDS Ordinances)           ordfile"
  311. 4050  DATA ".pk Verify BASIC has 256 byte buffer       verifile"
  312. 4060  DATA ".pa"
  313. 4070  DATA ".h2 Indexes"
  314. 4080  DATA ".pk Function Performed                     Filename"
  315. 4090  DATA ".pk ------------------------------------   --------"
  316. 4100  DATA ".pk Relates Parents and Children           pcindex"
  317. 4110  DATA ".pk Relates Spouses by Marriage            mindex"
  318. 4120  DATA ".h2 Documentation"
  319. 4130  DATA ".pk Purpose of Documentation               Filename"
  320. 4140  DATA ".pk ------------------------------------   --------"
  321. 4150  DATA ".pk Display Initial Information            runfirst"
  322. 4160  DATA ".sp"
  323. 4170  DATA ".pk Change Printers for Documentation      printers"
  324. 4180  DATA ".sp"
  325. 4190  DATA ".pk Print a Program Directory              director"
  326. 4200  DATA ".sp"
  327. 4210  DATA ".pk Print a User's Manual"
  328. 4220  DATA ".pk   Table of Contents                    tableofc"
  329. 4230  DATA ".pk   Introduction                         introduc"
  330. 4240  DATA ".pk   General Information                  general"
  331. 4250  DATA ".pk   Using the Programs                   usingthe"
  332. 4260  DATA ".pk   Reference Material                   referenc"
  333. 4270  DATA ".pk   Appendices                           appendix"
  334. 4280  DATA ".h2 Overview Information"
  335. 4290  DATA ".pk Function Performed                     Filename"
  336. 4300  DATA ".pk ------------------------------------   --------"
  337. 4310  DATA ".pk Overview on the Display Screen         overview"
  338. 4320  DATA ".h1 C.  HINTS"
  339. 4330  DATA ".h2 NAMES"
  340. 4340  DATA "It is best to enter surnames with all"
  341. 4350  DATA "capitals, such as:  ABLE"
  342. 4360  DATA ".sp"
  343. 4370  DATA "(Note: It is common practice to use the"
  344. 4380  DATA "Maiden name of a woman, and the surname"
  345. 4390  DATA "given at birth for a child.)"
  346. 4400  DATA ".h2 DATES"
  347. 4410  DATA "All of the programs expect dates in the"
  348. 4420  DATA "form dd Mmm yyyy, such as: 19 Jun 1928."
  349. 4430  DATA "However, partial dates, or approximate"
  350. 4440  DATA "dates, may be entered.  They will be"
  351. 4450  DATA "moved as far to the right as possible."
  352. 4460  DATA ".h2 COMMAS"
  353. 4470  DATA "Commas are to be avoided in all respon-"
  354. 4480  DATA "ses, since BASIC uses them to separate"
  355. 4490  DATA "answers.  It is suggested that dashes"
  356. 4500  DATA "be used in place of commas if at all"
  357. 4510  DATA "possible.  If it is necessary to include"
  358. 4520  DATA "a comma (e.g. JONES, Jr. or ADAMS, III),"
  359. 4530  DATA "the entire response should be enclosed"
  360. 4540  DATA "within quotes, making the response a"
  361. 4550  DATA "single one, rather than a multiple one."
  362. 4560  DATA "For example:"
  363. 4570  DATA ".sp"
  364. 4580  DATA ".pk Enter the Person's Surname (all capital letters)? ~JONES, Jr.~"
  365. 4590  DATA ".pa"
  366. 4600  DATA ".h2 Replacing Information"
  367. 4610  DATA "When using one of the update-programs,"
  368. 4620  DATA "information (with the exception of the"
  369. 4630  DATA "record-number) can be replaced by"
  370. 4640  DATA "entering the new information.  The new"
  371. 4650  DATA "information simply replaces the old."
  372. 4660  DATA ".sp"
  373. 4670  DATA "In the event that a user wishes to re-"
  374. 4680  DATA "place a current value with blanks (the"
  375. 4690  DATA "data was not correct), one or more"
  376. 4700  DATA "blanks may be entered by enclosing them"
  377. 4710  DATA "within quotes."
  378. 4720  DATA ".h2 Removing a Record."
  379. 4730  DATA "In the rare event that a user wishes"
  380. 4740  DATA "to remove a record from the Persons"
  381. 4750  DATA "File, the Marriages File, or the Ord-"
  382. 4760  DATA "inances File, he may do so by chang-"
  383. 4770  DATA "ing the record-number to the same num-"
  384. 4780  DATA "ber preceded by a minus-sign.  This"
  385. 4790  DATA "will cause the record to be cleared,"
  386. 4800  DATA "and it may then be 'saved'."
  387. 4810  DATA ".sp"
  388. 4820  DATA "(Note:  Remove an Ordinance Record be-"
  389. 4830  DATA "fore removing its Corresponding Person"
  390. 4840  DATA "Record, because an Ordinance Record"
  391. 4850  DATA "cannot be accessed if its Person Record"
  392. 4860  DATA "does not exist.)"
  393. 4870  DATA ".sp"
  394. 4880  DATA "After a record is removed, it may be"
  395. 4890  DATA "necessary to change any references to"
  396. 4900  DATA "the removed record (in persons and"
  397. 4910  DATA "marriage records), and you may have"
  398. 4920  DATA "to prepare the indexes again."
  399. 4930  DATA ".h1 D.  MODIFICATIONS"
  400. 4940  DATA ".h2 Making Changes"
  401. 4950  DATA "In all of the following examples, the"
  402. 4960  DATA "MENU program has to be loaded, edited,"
  403. 4970  DATA "and then saved."
  404. 4980  DATA ".sp"
  405. 4990  DATA "Since the MENU Program is a BASIC"
  406. 5000  DATA "program, you will need to use the"
  407. 5010  DATA "BASIC Editor (see the BASIC Manual"
  408. 5020  DATA "for details) to make the changes."
  409. 5030  DATA ".h2 Color Considerations"
  410. 5040  DATA "Line 220 in each of the programs estab-"
  411. 5050  DATA "lishes color, through the use of a"
  412. 5060  DATA "SCREEN Statement, which is:"
  413. 5070  DATA ".sp"
  414. 5080  DATA "  SCREEN S1,S2,S3,S4
  415. 5090  DATA ".sp"
  416. 5100  DATA "For many display screens, color can be"
  417. 5110  DATA "disabled by editing the definition of"
  418. 5120  DATA "S2 in Line 220 of the MENU Program."
  419. 5130  DATA "It can be changed from S2 = 1, to"
  420. 5140  DATA "S2 = 0."
  421. 5150  DATA ".pa"
  422. 5160  DATA ".h2 Color Definitions"
  423. 5170  DATA "Lines 300 through 380 of the MENU pro-"
  424. 5180  DATA "gram establishes color for a number of"
  425. 5190  DATA "variables, which are then used by all"
  426. 5200  DATA "of the programs."
  427. 5210  DATA ".sp"
  428. 5220  DATA "Color can be disabled, or it can be"
  429. 5230  DATA "changed, by changing the numbers for"
  430. 5240  DATA "the variables.  For example, color"
  431. 5250  DATA "can be disabled by changing each of"
  432. 5260  DATA "the numbers which is not a zero (0)"
  433. 5270  DATA "to a seven (7)."
  434. 5280  DATA ".h2 Changing the Number of Persons"
  435. 5290  DATA "The programs, as distributed, provide"
  436. 5300  DATA "for 500 persons, and 500 ordinances."
  437. 5310  DATA ".sp"
  438. 5320  DATA "In order to change the number of"
  439. 5330  DATA "persons and ordinances, it is then"
  440. 5340  DATA "necessary to change the 500 to some"
  441. 5350  DATA "other, more desirable, number."
  442. 5360  DATA ".sp"
  443. 5370  DATA "This can be done in the following way:"
  444. 5380  DATA ".sp"
  445. 5390  DATA "In the MENU program:"
  446. 5400  DATA ".sp"
  447. 5410  DATA "Line-number:   610"
  448. 5420  DATA "Old-value:     MAX.PER = 500"
  449. 5430  DATA "New-value:     you decide."
  450. 5440  DATA ".pa"
  451. 5450  DATA ".h2 Extending Existing Files"
  452. 5460  DATA "Before extending any existing file,"
  453. 5470  DATA "it is always wise to make a back-up"
  454. 5480  DATA "copy of that file, in case you make"
  455. 5490  DATA "any mistakes."
  456. 5500  DATA ".sp"
  457. 5510  DATA "A current file can be extended by"
  458. 5520  DATA "changing the old maximum and setting"
  459. 5530  DATA "a new upper limit.  Once set, the"
  460. 5540  DATA "CREATPER and CREATORD programs must"
  461. 5550  DATA "then be ~run~."
  462. 5560  DATA ".sp"
  463. 5570  DATA "For example, expanding from 500 to 600"
  464. 5580  DATA "persons would require a change in the"
  465. 5590  DATA "the MENU program in line 610 and line"
  466. 5600  DATA "630."
  467. 5610  DATA ".sp"
  468. 5620  DATA "Line-number:   610"
  469. 5630  DATA "Old-value:     MAX.PER = 500"
  470. 5640  DATA "New-value:     MAX.PER = 600"
  471. 5650  DATA ".sp"
  472. 5660  DATA "Line-number:   630"
  473. 5670  DATA "Old-value:     OLD.MAX.PER = 0"
  474. 5680  DATA "New-value:     OLD.MAX.PER = 500"
  475. 5690  DATA ".pa"
  476. 5700  DATA ".h2 Changing the Number of Marriages"
  477. 5710  DATA "The programs, as designed, provide"
  478. 5720  DATA "for 200 marriages."
  479. 5730  DATA ".sp"
  480. 5740  DATA "In order to change the number of"
  481. 5750  DATA "marriages, it is then necessary to"
  482. 5760  DATA "change the 200 to some other, more"
  483. 5770  DATA "desirable, number."
  484. 5780  DATA ".sp"
  485. 5790  DATA "In the MENU program:"
  486. 5800  DATA ".sp"
  487. 5810  DATA "Line-number:   620"
  488. 5820  DATA "Old-value:     MAX.MAR = 200"
  489. 5830  DATA "New-value:     you decide."
  490. 5840  DATA ".pa"
  491. 5850  DATA ".h2 Extending an Existing File"
  492. 5860  DATA "Before extending any existing file,"
  493. 5870  DATA "it is always wise to make a back-up"
  494. 5880  DATA "copy of that file, in case you make"
  495. 5890  DATA "any mistakes."
  496. 5900  DATA ".sp"
  497. 5910  DATA "A current file of marriages can be ex-"
  498. 5920  DATA "tended by changing the old maximum and"
  499. 5930  DATA "establishing a new upper limit.  Then"
  500. 5940  DATA "the CREATMAR Program must be ~run~."
  501. 5950  DATA ".sp"
  502. 5960  DATA "For example, expanding from 200 to 300"
  503. 5970  DATA "marriages would require a change in"
  504. 5980  DATA "the MENU program in line 620 and line"
  505. 5990  DATA "640."
  506. 6000  DATA ".sp"
  507. 6010  DATA "Line-number:   620"
  508. 6020  DATA "Old-value:     MAX.MAR = 200"
  509. 6030  DATA "New-value:     MAX.MAR = 300"
  510. 6040  DATA ".sp"
  511. 6050  DATA "Line-number:   640"
  512. 6060  DATA "Old-value:     OLD.MAX.MAR = 0"
  513. 6070  DATA "New-value:     OLD.MAX.MAR = 200"
  514. 6080  DATA ".pa"
  515. 6090  DATA ".h2 Repositioning the Files"
  516. 6100  DATA "As released, all files are located on"
  517. 6110  DATA "drive a:.  In order to change this to"
  518. 6120  DATA "another drive, the letter which iden-"
  519. 6130  DATA "tifies the drive must be changed."
  520. 6140  DATA ".sp"
  521. 6150  DATA "In the MENU program, these drive-"
  522. 6160  DATA "letters are located in line numbers"
  523. 6170  DATA "400-480.  They are:"
  524. 6180  DATA ".sp"
  525. 6190  DATA "Name       Ltr.    Reference"
  526. 6200  DATA "---------------    ------------------"
  527. 6210  DATA "DD.PROG$   = a:    The Programs"
  528. 6220  DATA "DD.VERI$   = a:    Verify s/256: file"
  529. 6230  DATA "DD.MENU$   = a:    Menu"
  530. 6240  DATA "DD.PERS$   = a:    Persons File"
  531. 6250  DATA "DD.MARR$   = a:    Marriages File"
  532. 6260  DATA "DD.ORD$    = a:    Ordinances File"
  533. 6270  DATA "DD.PCIDX$  = a:    Parent/Child Index"
  534. 6280  DATA "DD.MARIDX$ = a:    Marriages Index"
  535. 6290  DATA ".sp"
  536. 6300  DATA "The disk-drive letter for any of the"
  537. 6310  DATA "above programs and files may be chang-"
  538. 6320  DATA "ed by changing each a: to the desired"
  539. 6330  DATA "letter, in the MENU Program."
  540. 6340  DATA ".pa"
  541. 6350  DATA ".h2 Changing the Descendents Chart"
  542. 6360  DATA "As distributed, the Descendents Chart"
  543. 6370  DATA "prints four generations.  It also prints"
  544. 6380  DATA "in pages.  Both of these may be changed"
  545. 6390  DATA "by the user."
  546. 6400  DATA ".h2 Making the Chart Continuous"
  547. 6410  DATA "Line 660 of the MENU program contains"
  548. 6420  DATA "a definition of the number of lines on"
  549. 6430  DATA "a page, which is 58.  By changing this"
  550. 6440  DATA "to a very large number (e.g. 9999),"
  551. 6450  DATA "continuous charts may be produced."
  552. 6460  DATA ".h2 Reducing the Generations Shown"
  553. 6470  DATA "Line number 650 of the MENU program"
  554. 6480  DATA "contains a definition of the maximum"
  555. 6490  DATA "number of generations to be shown,"
  556. 6500  DATA "which is 4.  This number may be reduced"
  557. 6510  DATA "to 3 or 2.  If a user attempts to in-"
  558. 6520  DATA "rease the number beyond 4, an ~out of"
  559. 6530  DATA "memory~ condition will occur."
  560. 6540  DATA ".pa"
  561. 6550  DATA ".h2 Changing the Pedigree Chart"
  562. 6560  DATA "As distributed, the Pedigree Chart"
  563. 6570  DATA "contains the Persons Number of each"
  564. 6580  DATA "person on the chart.  If Ancestral"
  565. 6590  DATA "Chart Numbers (e.g. 2, 4, 8, 16) are"
  566. 6600  DATA "desired instead of Persons Numbers,"
  567. 6610  DATA "Line Number 670 in the MENU Program"
  568. 6620  DATA "must be changed,"
  569. 6630  DATA ".sp"
  570. 6640  DATA "  from:  670 CHART.NOS$ = ~n~"
  571. 6650  DATA "  to:    670 CHART.NOS$ = ~y~"
  572. 6660  DATA ".h2 Removing the Ordinances File"
  573. 6670  DATA "As designed, an Ordinances File is part"
  574. 6680  DATA "of Genealogy ON DISPLAY."
  575. 6690  DATA ".sp"
  576. 6700  DATA "In the event that the user does not wish"
  577. 6710  DATA "to have an Ordinances File, line 460 in"
  578. 6720  DATA "the MENU program must be changed."
  579. 6730  DATA ".sp"
  580. 6740  DATA "Line 460 contains a definition of where"
  581. 6750  DATA "the Ordinances file is located.  It is:"
  582. 6760  DATA ".sp"
  583. 6770  DATA "   DD.ORD$ = ~a:~"
  584. 6780  DATA ".sp"
  585. 6790  DATA "By changing this to:"
  586. 6800  DATA ".sp"
  587. 6810  DATA "   DD.ORD$ = ~no~"
  588. 6820  DATA ".sp"
  589. 6830  DATA "in the MENU program, the ability to for-"
  590. 6840  DATA "mat and update an Ordinances File is re-"
  591. 6850  DATA "moved from the menu.  In addition, no"
  592. 6860  DATA "information about ordinances will be"
  593. 6870  DATA "displayed or printed."
  594. 6880  DATA ".pa"
  595. 6890  DATA ".h2 Utilizing other Printers"
  596. 6900  DATA "As designed, an IBM Matrix Printer,"
  597. 6910  DATA "an EPSON MX-100 Printer, or some"
  598. 6920  DATA "equivalent printer is assumed."
  599. 6930  DATA ".sp"
  600. 6940  DATA "Control for Compressed Printing, for"
  601. 6950  DATA "Page Length, for Paper Sensing, and"
  602. 6960  DATA "for Form Feeding is provided in the"
  603. 6970  DATA "Pedigree program and in the Family"
  604. 6980  DATA "program."
  605. 6990  DATA ".sp"
  606. 7000  DATA "Form Feeding is also provided in the"
  607. 7010  DATA "printper, printmar, listper, listmar,"
  608. 7020  DATA "listpci, alphaper, alphamar, display"
  609. 7030  DATA "and descend programs."
  610. 7040  DATA ".sp"
  611. 7050  DATA "Emphasized (bold) printing is used in"
  612. 7060  DATA "the printper program."
  613. 7070  DATA ".sp"
  614. 7080  DATA "In order to provide the same facility"
  615. 7090  DATA "for another printer, these controls"
  616. 7100  DATA "may need to be changed.  They are"
  617. 7110  DATA "found in lines 500-590 of the MENU"
  618. 7120  DATA "program."
  619. 7130  DATA ".pa"
  620. 7140  DATA "The variable names, and their purposes,"
  621. 7150  DATA "are as follows:"
  622. 7160  DATA ".sp"
  623. 7170  DATA "Name:           Purpose"
  624. 7180  DATA "-------------   -----------------------"
  625. 7190  DATA "FORM.FEED$      To Top of the Next Page"
  626. 7200  DATA "PAP.SEN.ON$     Paper Sensing ON"
  627. 7210  DATA "PAP.SEN.OFF$    Paper Sensing OFF"
  628. 7220  DATA "PAP.LONG$       Long (11 inch) Paper"
  629. 7230  DATA "PAP.SHORT$      Short (8-1/2 in.) Paper"
  630. 7240  DATA "COMPR.ON$       Compressed Print ON"
  631. 7250  DATA "COMPR.OFF$      Compressed Print OFF"
  632. 7260  DATA "BOLD.ON$        Emphasized Print ON"
  633. 7270  DATA "BOLD.OFF$       Emphasized Print OFF"
  634. 7280  DATA ".sp"
  635. 7290  DATA "For each of the above, change the"
  636. 7300  DATA "definition to that of your printer."
  637. 7310  DATA ".h1 E. TERMS & CONDITIONS"
  638. 7320  DATA ".h2 Terms"
  639. 7330  DATA "If you are using these programs, you are"
  640. 7340  DATA "expected to become a Registered User,"
  641. 7350  DATA "by making a contribution to the author"
  642. 7360  DATA "of the programs ($45.00 suggested)."
  643. 7370  DATA ".vt 3"
  644. 7380  DATA "     Melvin O. Duke"
  645. 7390  DATA "     P. O. Box 20836"
  646. 7400  DATA "     San Jose, CA  95160"
  647. 7410  DATA ".vt 2"
  648. 7420  DATA "Anyone may request a copy of these pro-"
  649. 7430  DATA "grams, for trial, by sending a blank,"
  650. 7440  DATA "double-sided, double-density, 5-1/4 in."
  651. 7450  DATA "diskette to the author of the programs."
  652. 7460  DATA ".sp"
  653. 7470  DATA "A self-addressed, postage-paid return"
  654. 7480  DATA "diskette-mailer must accompany the"
  655. 7490  DATA "diskette (no exceptions, please)."
  656. 7500  DATA ".sp"
  657. 7510  DATA "A copy of the programs with documenta-"
  658. 7520  DATA "tion will be sent by return mail."
  659. 7530  DATA ".pa"
  660. 7540  DATA ".h2 Conditions"
  661. 7550  DATA "A limited license is granted to all users"
  662. 7560  DATA "of these programs, to make copies of"
  663. 7570  DATA "them, and distribute them to other users,"
  664. 7580  DATA "on the following conditions:"
  665. 7590  DATA ".sp"
  666. 7600  DATA "1.  The Genealogy ON DISPLAY programs"
  667. 7610  DATA "    are not to be distributed to others"
  668. 7620  DATA "    in a modified form."
  669. 7630  DATA ".sp"
  670. 7640  DATA "2.  No fee (or other consideration) is"
  671. 7650  DATA "    is to be charged for copying or dis-"
  672. 7660  DATA "    tributing the Genealogy ON DISPLAY"
  673. 7670  DATA "    programs."
  674. 7680  DATA ".sp"
  675. 7690  DATA "3.  The notices displayed at program"
  676. 7700  DATA "    start-up are not to be bypassed,"
  677. 7710  DATA "    altered, or removed."
  678. 7720  DATA ".h2 Disclaimer"
  679. 7730  DATA "In no event will the Author be liable to"
  680. 7740  DATA "you for any damages, including any lost"
  681. 7750  DATA "profits, lost savings or other inciden-"
  682. 7760  DATA "tal or consequential damages arising out"
  683. 7770  DATA "of the use of or inability to use these"
  684. 7780  DATA "programs, even if the Author has been"
  685. 7790  DATA "advised of the possibility of such"
  686. 7800  DATA "damages, or for any claim by any other"
  687. 7810  DATA "party."
  688. 7820  DATA ".eof"
  689. 7830  END
  690.